home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / games / nz.bas < prev    next >
BASIC Source File  |  1991-10-18  |  519b  |  18 lines
  1. 1000 CLS
  2. 1010 PRINT "＊＊＊ＴＨＥ　ＮＥＷＺＥＡＬＡＮＤ　ＳＴＯＲＹ":PRINT 
  3. 1020 PRINT "ディスクをＡドライブに入れて何かキーを押して下さい"
  4. 1030 WHILE INKEY$="":WEND
  5. 1040 '
  6. 1050 OPEN "R",#1,"A:(1)\NZ.EXP":FIELD #1,1 AS DT$
  7. 1060 READ L$,D$
  8. 1070 WHILE D$<>"*"
  9. 1080 LSET DT$=CHR$(VAL("&H"+D$)):OF&=VAL("&H"+L$)+1:PUT #1,OF&:READ L$,D$
  10. 1090 WEND
  11. 1100 CLOSE
  12. 1110 END
  13. 1120 '
  14. 1130 DATA 46C98,7D                                       'パッチ
  15. 1140 DATA 8BC43,DC,8BC44,5
  16. 1150 DATA 8BC69,F4,8BC6A,1
  17. 1160 DATA *,*
  18.